<script>on mouseUp-- 1992.05.02 - ^z - bg field script to make popup notes appearput the clickChunk into cput word 1 of c & word 2 of c & word 3 of c & word 4 of c into cfnif there is a card field cfn thenshow card field cfnelsebeepend ifend mouseUp</script>
</part>
<part>
<id>38</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>244</left>
<top>314</top>
<right>271</right>
<bottom>340</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1005</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Notes</name>
<script>on mouseUpif the optionKey is up thenif the selection is empty thenlock screenif the visible of fld "notes" thenhide fld "notes"set the rect of fld "body" to "6,31,506,308"if fld "notes" is empty thenset the icon of me to "empty notes"elseset the icon of me to "full notes"end ifunlock screen with visual zoom inelseshow fld "notes"set the rect of fld "body" to "6,31,506,164"unlock screen with visual zoom outif fld "notes" is empty thenselect after text of fld "notes"end ifend ifelseset cursor to watchif length of the selection + (length of cd fld "notes"¬of cd "notes") > 29950 thenanswer "Sorry, adding this text will overfill the Notes field."¬&& "You must first go and clean out some of the text presently"¬&& "in your notes." with "Cancel" or "OK"if it is "OK" thengo cd "notes"end ifexit to HyperCardend ifdoMenu "copy text"put the selectedChunk into theChunklock screengo cd "notes"if last char of cd fld "notes" <> return thenput return & return after cd fld "notes"end ifput fld "title" of recent cd & ":" & return & return after¬cd fld "notes"select after text of cd fld "notes"doMenu "paste text"go backunlock screenselect theChunkend ifelsevisual zoom outgo cd "notes"end ifend mouseUp</script>
</part>
<part>
<id>39</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>270</left>
<top>314</top>
<right>296</right>
<bottom>339</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1004</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpif fld "title" contains "scene" thenput "scene" into theUnitelseput "card’s field" into theUnitend ifanswer "Do you want to print this" && theUnit & "?" with "Cancel"¬or "OK"if it is "OK" thenlock screenput fld "title" & return & return before fld "body"print fld "body"delete line 1 to 2 of fld "body"end ifend mouseUp</script>
</part>
<part>
<id>40</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>296</left>
<top>314</top>
<right>323</right>
<bottom>340</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>20965</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Bookmark</name>
<script>on mouseUpif the number of this cd = (cd fld "bookmark" of cd 1) thenanswer "You already have your bookmark set at this card."exit to HyperCardelse if cd fld "bookmark" of cd 1 is not empty thenanswer "You presently have a bookmark at “" & (fld "title" of cd¬(cd fld "bookmark" of cd 1)) & ".” Do you want to mark this card"¬&& "instead?" with "Cancel" or "Go there" or "Yes"if it is "go there" thenvisual zoom outgo cd (cd fld "bookmark" of cd 1)exit to hyperCardelse if it is "Yes" thenput the number of this cd into cd fld "bookmark" of cd 1end ifelseanswer "Do you want to set your bookmark at this card?" with "Cancel" or "Yes"if it is "Yes" thenput the number of this cd into cd fld "bookmark" of cd 1end ifend ifend mouseUp</script>
</part>
<part>
<id>41</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>325</left>
<top>312</top>
<right>357</right>
<bottom>328</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1009</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Find</name>
<script>on mouseUpglobal lastFind, lastChar, lastCardif the selection is empty thenask "What do you want to find?" with lastFindif it is empty then exit to HyperCardput it into lastFindelseput the selection into lastFindif the textstyle of the selectedChunk contains "group" thengo card "Glossary"find lastFind in cd field "Glossary"exit to HyperCardend ifend ifset cursor to watchif the number of words of lastFind < 2 thenfind lastFind in fld "body"elsefind whole lastFind in fld "body"end ifif the foundChunk is not empty thenput (word 4 of the foundChunk)+1 into lastCharput the short id of this card into lastCardelseanswer "Sorry, couldn’t find that!"end ifend mouseUp</script>
</part>
<part>
<id>42</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>324</left>
<top>327</top>
<right>358</right>
<bottom>341</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>6658</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Find</name>
<script>on mouseUpglobal lastFind, lastChar, lastCardset cursor to watchlock screenif lastChar is empty thenanswer "You haven’t found anything yet!"exit to HyperCardend ifput char lastChar to the length of fld "body" of fld "body"¬into theRemainderif theRemainder contains lastFind thenput offset(lastFind,theRemainder) into thePlaceadd lastChar to thePlace --gives position in fld of new findunlock screenselect char thePlace-1 of fld "body"put thePlace + the length of lastFind + 1 into lastCharelsego next cardif the number of words of lastFind < 2 thenfind lastFind in fld "body"elsefind whole lastFind in fld "body"end ifif word 4 of the foundChunk = lastChar and the short id of ¬this card = lastCard thenanswer "This is only occurrence I could find."elseput word 4 of the foundChunk into lastCharput the short id of this card into lastCardend ifend ifend mouseUp</script>
</part>
<part>
<id>43</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>358</left>
<top>317</top>
<right>386</right>
<bottom>337</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>29019</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>TopZ</name>
<script>on mouseUpset the scroll of field "Body" to 0end mouseUp</script>
</part>
<part>
<id>44</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>385</left>
<top>317</top>
<right>408</right>
<bottom>337</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>12070</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>UpZ</name>
<script>on mouseDownset the scroll of field "Body" to the scroll of field "Body" - ¬the textHeight of field "Body" * trunc(the height of field "Body" / ¬the textHeight of field "Body")end mouseDownon mouseStilldownset the scroll of field "Body" to the scroll of field "Body" - ¬the textHeight of field "Body" * trunc(the height of field "Body" / ¬the textHeight of field "Body")end mouseStillDown</script>
</part>
<part>
<id>45</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>407</left>
<top>317</top>
<right>429</right>
<bottom>337</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>2730</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>DownZ</name>
<script>on mouseDownset the scroll of field "Body" to the scroll of field "Body" + ¬the textHeight of field "Body" * trunc(the height of field "Body" / ¬the textHeight of field "Body")end mouseDownon mouseStillDownset the scroll of field "Body" to the scroll of field "Body" + ¬the textHeight of field "Body" * trunc(the height of field "Body" / ¬the textHeight of field "Body")end mouseStillDown</script>
</part>
<part>
<id>46</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>465</left>
<top>317</top>
<right>485</right>
<bottom>337</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1014</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>on mouseUpset cursor to watchif the id of this cd <> id of first cd of this bg thenvisual effect stretch from topgo prevelseanswer "This is the first information card. Do you want"¬&& "to return to the Index?" with "Cancel" or "OK"if it is "OK" thenvisual zoom ingo cd 1end ifend ifend mouseUp</script>
</part>
<part>
<id>47</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>487</left>
<top>317</top>
<right>510</right>
<bottom>337</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1013</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on mouseUpset cursor to watchif the short id of this cd <> short id of last cd of this bg thenvisual effect shrink to topgo nextelseanswer "This is the last scene in the play. Do you want to return"¬&& "to the Index?" with "Cancel" or "OK"if it is "OK" thenvisual zoom ingo first cdend ifend ifend mouseUp</script>
</part>
<part>
<id>48</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>434</left>
<top>317</top>
<right>462</right>
<bottom>337</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>30557</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>First</name>
<script>on mouseUpset cursor to watchvisual effect zoom ingo cd 1end mouseUp</script>
</part>
<part>
<id>49</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>6</left>
<top>167</top>
<right>506</right>
<bottom>300</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>18</textHeight>
<name>Notes</name>
<script>on closeFieldif me is emtpy thenset the icon of bg btn "notes" to "empty notes"elseset the icon of bg btn "notes" to "full notes"end ifpass closeFieldend closeField</script>
